home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
chaosexe.zip
/
XREADPOI.TRU
< prev
next >
Wrap
Text File
|
1980-01-01
|
1KB
|
45 lines
!PROGRAM TITLE - "XREADPOI"
CLEAR
PRINT" ***PENDULUM - READS POINCARE OR PHASE2D DATA***"
PRINT"THIS PROGRAM DISPLAYS POINCARE SECTION DATA OR 2D-PHASE DATA FROM A FILE"
PRINT"FOR THE DRIVEN PENDULUM."
!
LIBRARY "SGLIB.TRC"
DECLARE DEF ACCEL
DIM A(1),B(1)
!INPUT STATEMENTS
INPUT PROMPT"INPUT DRIVING FORCE STRENGTH:":G
INPUT PROMPT"INPUT DAMPING (IF NO DAMPING THEN INPUT 9999999):":Q
INPUT PROMPT"INPUT MIN THETA:":XMIN
INPUT PROMPT"INPUT MAX THETA:":XMAX
INPUT PROMPT"INPUT MIN OMEGA:":YMIN
INPUT PROMPT"INPUT MAX OMEGA:":YMAX
INPUT PROMPT"INPUT DRIVE(A,B,ETC) OF FILE DISKETTE:":DRIVE$
INPUT PROMPT"INPUT FILE NAME (FOR EXAMPLE, 01500400):":NAME
INPUT PROMPT"SET POINTER # (USE 1 FOR BEGINNING) :":REC
CALL SETXSCALE(XMIN,XMAX)
CALL SETYSCALE(YMIN,YMAX)
CALL SETTEXT("PENDULUM - POINCARE SECTION","ANGLE","ANGULAR VELOCITY")
CALL RESERVELEGEND !FROM SGLIB , SAVES SPACE FOR LEGENDS
CLEAR
DATA XMIN,YMIN
CALL DATAGRAPH(a,b,1,0,"white")
call gotocanvas
OPEN#1: NAME DRIVE$&":"&STR$(NAME), ORGANIZATION RECORD
SET#1: RECORD REC
WHEN ERROR IN
DO WHILE MORE #1
READ #1: XP,VP
call graphpoint(xp,vp,1)
LOOP
USE
END WHEN
CALL ADDLEGEND("G="&STR$(G)&" Q="&STR$(Q),0,1,"WHITE")
CALL DRAWLEGEND
END